home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / ak.dir / 00017.ls < prev    next >
Encoding:
Text File  |  1996-03-18  |  1.0 KB  |  35 lines
  1. on mouseUp
  2.   global mystore
  3.   if (word 1 of the text of cast "storelocation" <> "no") and (word 1 of the text of cast "storelocation" <> "rollover") then
  4.     updateStage()
  5.     set the castNum of sprite 29 to 173
  6.     set mystore to the text of cast "storeLocation"
  7.     puppetSound("blip")
  8.     set DFILE to "STORE.TXT"
  9.     set writeObject to FileIO(mnew, "write", the pathName & DFILE)
  10.     set theText to mystore
  11.     writeObject(mWriteString, theText)
  12.     writeObject(mdispose)
  13.     quit()
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   if (word 1 of the text of cast "storelocation" <> "no") and (word 1 of the text of cast "storelocation" <> "rollover") then
  19.     set x to the locH of sprite 33
  20.     set y to the locV of sprite 33
  21.     set Xnew to x + 1
  22.     set Ynew to y + 1
  23.     set the locH of sprite 33 to Xnew
  24.     set the locV of sprite 33 to Ynew
  25.     set the castNum of sprite 29 to 174
  26.     set the ink of sprite 31 to 39
  27.     set the ink of sprite 32 to 39
  28.     updateStage()
  29.   else
  30.     set the ink of sprite 31 to 39
  31.     puppetSound("blip")
  32.     updateStage()
  33.   end if
  34. end
  35.